Top 10k strings from Mozart (1984)(Octopus Software).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Demos / Sinclair ZX Spectrum - Demos - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 "32291",240
   2 "23785"+n,
   1 y1=(n(t)-b)*d:
   1 x=p+(t-c)*10
   1 s(n-q)=s(N-q)+b:
   1 s(n-e)=s(n-e)+b:
   1 rndt+q,l+m-c:
   1 n(t)=n(t)-128
   1 n(n)=n(n-b)
   1 m(q+b)=l+m
   1 ky=(e+b)/f:
   1 f,e;" 1.Gamble with the dice ?
   1 f+k*e,b;"Part ";k+b;:
   1 f+e,e;" 2. Predict the fall of
   1 f+e+e,e;" 3. Compose automatically?":
   1 d,e;"Do you wish to ";
   1 c,f+e;"Dice Record":
   1 a,a;"Part ";p1:
   1 1.z6TVsw~GxQnCk
   1 -f-c,-e,d:
   1 -f,-c*f,-1.2
   1 ,a;"Throw [ ENTER ]":
   1 +n*d;m(k*8
   1 (y1/f)=y1/f
   1 (rndt+n)):
   1 (n+b))*ky:
   1 "Title ? ";a$:
   1 "Tempo (1-6) ";l:
   1 "Repeat ?";a$:
   1 "No. on right dice ?";l:
   1 "No. on left dice ?";m:
   1 "Manusript ?(Y/N)";a$:
   1 "Enter volume(1-6) ";vo:
   1 "32385",115
   1 "32350"+137
   1 "23658",f+f:
   1 "'ENTER' to continue ";a$:
   1 "'ENTER' to continue ";a$
   1 " Save manuscript ?(Y/N)";a$:
   1 " Enter 1,2 or 3 ";a$:
   1  the dice ?   or";